Invisible Universe/Invisible Universe (1995)(Voyager)[Mac-PC].iso/mac/MOVIES/STARMAP.DIR/00009_Script_little objects

Text File | 1995-11-16 | 2KB | 67 lines

property  myChannel, littleSprite, bigSprite, myScript, myLabel--, ancestor,normInk,rolloInk,pressInk

on birth me, sp,theObjectFrame,ls,bs
  set littleSprite = ls
  set bigSprite = bs
  set myChannel = sp
  set myLabel = theObjectFrame
  --set ancestor to birth(script "hilite",sp,theObjectFrame,ls,bs)
  --  set normInk to 5
  --  set rolloInk to 34
  --  set pressInk to 35
  set myScript to "go to frame"&"e&theObjectFrame"e -- "gGo"&"e&theObjectFrame"e
  return me
end

on norm me

  --put ">>> norm lo" && myChannel
  set the castNum of sprite 48 = 0
  updateStage
  puppetSprite 48,0
end

on rollo me
  go to the frame + 5

  --put ">>>rollo lo" && myChannel

  puppetSprite 48,1
  set the visibility of sprite 48 = 0
  set the locV of sprite 48 = the locV of sprite littleSprite
  set the locH of sprite 48 = the locH of sprite littleSprite
  set the castNum of sprite 48 = the castNum of sprite littleSprite
  set the type of sprite 48 = the type of sprite littleSprite
  set the ink of sprite 48 = the ink of sprite littleSprite
  set the backColor of sprite 48 = 0
  set the foreColor of sprite 48 = 255
  set the visibility of sprite 48 = 1
  go to the frame - 5

end

on press me
end


on doScript me
  global gCurLabelProp
  if label(myLabel) <>0 then
    set gCurLabelProp = myLabel
    do myScript
  else
    go to marker(0)
    set gCurLabelProp = the frameLabel
    norm(me)
    goGo(myLabel)
  end if
end

on doRollOverMe me
  return (littleSprite<>0)
end

on doHiLiteMe me
  return 1
end